home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / prog / vbengine.zip / VBENGINE.TXT < prev    next >
Text File  |  1993-04-04  |  5KB  |  98 lines
  1. Type DTable
  2.     TableName As String * 255
  3.     TableHandle As Integer        'Do not use in your program for internal use only!
  4.     IndexID As Integer
  5.     SaveEveryChange As Integer
  6. End Type
  7.  
  8. Type DRecord
  9.     RecordHandle As Integer        'Do not use in your program for internal use only!
  10.     SearchMode As Integer
  11.     KeySearch As Integer
  12.     LockHandle As Integer        'Do not use in your program for internal use only!
  13. End Type
  14.  
  15. Type DField
  16.     FieldName As String * 25
  17.     FieldHandle As Integer        'Do not use in your program for internal use only!
  18.     FieldType As String * 30
  19.     FieldValue As String * 255
  20. End Type
  21.  
  22. Type DataTable
  23.     Table As DTable
  24.     Record As DRecord
  25.     Field As DField
  26. End Type
  27.  
  28.  
  29. Type NewTable
  30.     TableName As String * 255
  31.     NFields As Integer
  32.     FieldNames As String * 6629
  33.     FieldTypes As String * 1529
  34. End Type
  35.  
  36.  
  37.  
  38. Declare Function OpenEngine Lib "VBENGINE.DLL" (ByVal ClientName$) As Integer
  39. Declare Function CloseEngine Lib "VBENGINE.DLL" () As Integer
  40. Declare Function OpenTable Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  41. Declare Function CloseTable Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  42. Declare Function GetRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  43. Declare Function SetField Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  44. Declare Function GetFieldType Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  45. Declare Function GetField Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  46. Declare Function NextRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  47. Declare Function PreviousRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  48. Declare Function LastRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  49. Declare Function FirstRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  50. Declare Function DeleteRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  51. Declare Function InsertRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  52. Declare Function UpdateRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  53. Declare Function PutField Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  54. Declare Function AppendRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  55. Declare Function SearchField Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  56. Declare Function SearchKey Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  57. Declare Function LockRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  58. Declare Function UnlockRecord Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  59. Declare Function RefreshTable Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  60. Declare Function LockTable Lib "VBENGINE.DLL" (Target As DataTable, ByVal LockType As Integer) As Integer
  61. Declare Function UnlockTable Lib "VBENGINE.DLL" (Target As DataTable, ByVal LockType As Integer) As Integer
  62. Declare Function FlushBuffers Lib "VBENGINE.DLL" () As Integer
  63. Declare Function GetUserName Lib "VBENGINE.DLL" (ByVal StringBuffer As String) As Integer
  64. Declare Function EmptyTable Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  65. Declare Function DeleteTable Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  66. Declare Function DecryptTable Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  67. Declare Function EncryptTable Lib "VBENGINE.DLL" (Target As DataTable, ByVal Password As String) As Integer
  68. Declare Function CreateTable Lib "VBENGINE.DLL" (Table As NewTable) As Integer
  69. Declare Function AddKey Lib "VBENGINE.DLL" (ByVal TableName As String, ByVal NFlds As Integer, ByVal FldHandles As Integer, ByVal Mode As Integer) As Integer
  70. Declare Function DeleteKey Lib "VBENGINE.DLL" (ByVal TableName As String, ByVal Index As Integer) As Integer
  71. Declare Function GotoRecord Lib "VBENGINE.DLL" (Target As DataTable, ByVal RecordNumber As Long) As Integer
  72. Declare Function GetRecordNumber Lib "VBENGINE.DLL" (Target As DataTable, RecordNumber As Long) As Integer
  73. Declare Function IsFieldBlank Lib "VBENGINE.DLL" (Target As DataTable, Blank As Integer) As Integer
  74. Declare Function PutBlank Lib "VBENGINE.DLL" (Target As DataTable) As Integer
  75.  
  76.  
  77. Global Const FALSE = 0
  78. Global Const MASTERINDEX = 0
  79.  
  80.  
  81. 'Constants for Database Searching
  82.  
  83. Global Const SEARCHFIRST = 0
  84. Global Const SEARCHNEXT = 1
  85. Global Const CLOSESTRECORD = 2
  86.  
  87. 'Constants for Table Locks
  88.  
  89. Global Const FULLLOCK = 1
  90. Global Const WRITELOCK = 2
  91. Global Const PREVENTWRITELOCK = 3
  92.  
  93. 'Constants for Indexes
  94. Global Const PRIMARY = 0
  95. Global Const SECONDARY = 1
  96. Global Const INCSECONDARY = 2
  97.  
  98.